home *** CD-ROM | disk | FTP | other *** search
/ Aminet 35 / Aminet 35 (2000)(Schatztruhe)[!][Feb 2000].iso / Aminet / util / boot / GetMouseInput.lha / GetMouseInput / SampleScriptSTDOUT < prev   
Encoding:
Text File  |  1999-12-12  |  371 b   |  17 lines
  1. ; Example startup-sequence file using GetMouseInput V1.3/V1.4 with STDOUT
  2. ; option
  3.  
  4. Assign T: RAM:
  5.  
  6. If `GetMouseInput STDOUT` EQ 1
  7.    Execute S:Startup1 ; Left mouse button pressed
  8. Else
  9.    If `GetMouseInput STDOUT` EQ 2
  10.       Execute S:Startup2 ; Right mouse button pressed
  11.    Else
  12.       Execute S:NormalStartup-Sequence ; No buttons pressed
  13.    EndIf
  14. EndIf
  15.  
  16. EndCLI >NIL:
  17.